home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
92xx
/
9210b.d64
/
mod o3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
835b
|
28 lines
100 PRINT"[147] MOMENT BITTE !"
110 REM FILE O3 LADEN:
120 SYS(57812)"O3",8,1:POKE 780,0:SYS 65493
130 REM FILE O3 MODIFIZIEREN:
140 AD=51552:FOR X=0 TO 3:READ W:POKE AD+X,W:NEXT
150 AD=51042:FOR X=0 TO 103:READ W:POKE AD+X,W:NEXT
160 REM ALTES FILE O3 LOESCHEN:
170 OPEN 1,8,15,"S:O3":CLOSE 1
180 REM MODIFIZIERTES FILE O3 SPEICHERN:
190 SYS(57812)"O3",8:POKE 193,0:POKE 194,195
200 POKE 174,177:POKE 175,207:SYS 62954
210 :
220 DATA 47,196,218,83
230 :
240 DATA 169,8,160,0,32,167,9,170
250 DATA 160,224,132,159,32,213,255,162
260 DATA 2,189,60,51,221,199,199,240
270 DATA 1,96,202,16,244,32,183,255
280 DATA 201,64,208,245,169,27,141,17
290 DATA 208,32,16,35,176,46,32,220
300 DATA 54,170,32,201,255,176,37,160
310 DATA 0,132,158,120,162,52,134,1
320 DATA 177,158,162,55,134,1,88,32
330 DATA 210,255,230,158,208,2,230,159
340 DATA 165,159,197,175,208,229,165,158
350 DATA 197,174,208,223,104,104,32,233
360 DATA 199,76,185,52,234,68,65,47